home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 009 / qb3bug.arc / PROBLEM2.BAS < prev    next >
BASIC Source File  |  1987-07-11  |  2KB  |  38 lines
  1. '+----------------------------------------------------------------------------+
  2. '|   This will run fine IN the environment, or if compiled to a BRUN file,    |
  3. '|   it will PROBABLY not run if compiled to a BCOM file from INSIDE the      |
  4. '|   QB environment, only if compiled from DOS via QB problem2 /o;            |
  5. '|                                                                            |
  6. '|   Problem2 - a window routine.  Crashes most every time.                   |
  7. '|   Parameters:                                                              |
  8. '|   lcol- Left column                                                        |
  9. '|   top - Top row                                                            |
  10. '|   rcol - Right column                                                      |
  11. '|   bttm - bottom row                                                        |
  12. '|   label$ - Label to be placed on box                                       |
  13. '|   frame - style of frame                                                   |
  14. '|   type - 0=normal, 1=growing, 2=Shaded, 3=shaded/growing                   |
  15. '|   fg - foreground color                                                    |
  16. '|   bg - background color                                                    |
  17. '|   page - video page to use                                                 |
  18. '+----------------------------------------------------------------------------+
  19. CLEAR
  20. DEFINT a-z
  21.  
  22. lcol=5 : top=3 : rcol=78 : bttm=15 : label$=" TESTING! " : frame=3
  23. fg=14 : bg=4
  24.  
  25. color 0,3,3
  26. cls
  27.  
  28. FOR type=1 TO 3
  29.   CALL makewindow(lcol%,top%,rcol%,bttm%,label$,frame%,type%,fg,bg,0)
  30.   LOCATE 23,30
  31.   PRINT "Press any key to continue"
  32.   k$=INKEY$ : WHILE k$="" : k$=INKEY$ : WEND
  33.   CLS : BEEP
  34. NEXT type
  35.  
  36. COLOR 3,0 : CLS
  37.  
  38.